Introduction

A starter template for leaflet tasks.

Libraries to load

library(rgdal)
library(leaflet)
library(htmltools)

Here’s a basic example

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addProviderTiles('Esri.WorldStreetMap',group='EsriStreet') %>%
  addProviderTiles('Esri.WorldImagery',group='EsriImagery') %>%
  addProviderTiles('CartoDB.Positron',group='CartoDB-1') %>%  
  addPolygons(data=indShp,group='India',stroke=T,weight = 2,fillOpacity = 0.1,
               label=lapply(indShp@data$txtLbl, function(x) HTML(x)),
               labelOptions = labelOptions(noHide = T)) %>% 
  addLayersControl(
    baseGroups = c('CartoDB-1','EsriStreet','EsriImagery'),
    overlayGroups = c('India'),
    options = layersControlOptions(collapsed = T)
  )
m  # Print the map

Next Things

#addMarkers(lng=76.6, lat=10.8, popup="My Hometown") %>% 
#setView(lng=76.6, lat=10.8,zoom = 10)